home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Hyper / U-Z / YPages1.1.cpt / Mac Yellow Pages 1.1 / card_27175.txt < prev    next >
Encoding:
Text File  |  1990-09-04  |  3.0 KB  |  148 lines
  1. -- card: 27175 from stack: in.1
  2. -- bmap block id: 27500
  3. -- flags: 4000
  4. -- background id: 3486
  5. -- name: Main Menu
  6. ----- HyperTalk script -----
  7. on help
  8.   send mouseUp to card button "Help"
  9. end help
  10.  
  11.  
  12. -- part 2 (button)
  13. -- low flags: 00
  14. -- high flags: 2000
  15. -- rect: left=445 top=285 right=317 bottom=481
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: Home
  24. ----- HyperTalk script -----
  25. on mouseDown
  26.   play stop
  27.   play harpsichord a7e
  28. end mouseDown
  29.  
  30. on mouseUp
  31.   doMenu "Quit HyperCard"
  32. end mouseUp
  33.  
  34.  
  35. -- part 3 (button)
  36. -- low flags: 00
  37. -- high flags: 2000
  38. -- rect: left=107 top=206 right=258 bottom=170
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 1
  42. -- font id: 0
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: Directory
  47. ----- HyperTalk script -----
  48. on mouseUp
  49.   global undoMemory, bookMark
  50.   put the name of this card into undoMemory
  51.   --visual effect zoom out
  52.   visual effect iris close to black
  53.   visual effect iris open
  54.   go to bookMark
  55. end mouseUp
  56.  
  57.  
  58.  
  59. -- part 4 (button)
  60. -- low flags: 00
  61. -- high flags: 2000
  62. -- rect: left=219 top=206 right=258 bottom=282
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 0 / 0
  65. -- text alignment: 1
  66. -- font id: 0
  67. -- text size: 12
  68. -- style flags: 0
  69. -- line height: 16
  70. -- part name: Registration
  71. ----- HyperTalk script -----
  72. on mouseUp
  73.   visual effect iris close to black
  74.   visual effect iris open
  75.   go to card "Registration Dissolve"
  76.   visual effect dissolve
  77.   go to card "Registration"
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 5 (button)
  83. -- low flags: 00
  84. -- high flags: 2000
  85. -- rect: left=331 top=206 right=258 bottom=394
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Registration
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   visual effect iris close to black
  97.   visual effect iris open
  98.   go to card "Publicity Picture Dissolve"
  99.   visual effect dissolve
  100.   go to card "Publicity Picture 1"
  101.   visual effect dissolve
  102.   go to card "Publicity Picture 2"
  103. end mouseUp
  104.  
  105.  
  106.  
  107. -- part 6 (button)
  108. -- low flags: 00
  109. -- high flags: 2000
  110. -- rect: left=33 top=285 right=317 bottom=69
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 0 / 0
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: Help
  119. ----- HyperTalk script -----
  120. on mouseDown
  121.   play stop
  122.   play harpsichord a7e
  123. end mouseDown
  124.  
  125. on mouseUp
  126.   set lockScreen to true
  127.   go to card "Main Menu Help"
  128. end mouseUp
  129.  
  130.  
  131.  
  132. -- part 10 (field)
  133. -- low flags: 01
  134. -- high flags: 0000
  135. -- rect: left=221 top=14 right=28 bottom=485
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 65535
  139. -- font id: 3
  140. -- text size: 10
  141. -- style flags: 0
  142. -- line height: 13
  143. -- part name: Issue Date
  144.  
  145.  
  146. -- part contents for card part 10
  147. ----- text -----
  148. First Edition - August 1990